home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
util
/
wb
/
Gurus2000_18_G.lha
/
Gurus2000
/
Install
< prev
next >
Wrap
Text File
|
2000-08-01
|
2KB
|
83 lines
; $VER: Install Gurus2000
; © by Demon 2000
(complete 0)
(set #Language (askchoice (prompt "Gurus2000") (help (cat @askchoice-help))
(default 0) (choices "Deutsch" "English")) )
(if (= #language 0)
((set #welcome
(cat "\n\n\nHerzlich willkommen beim Gurus2000 - Installer\n\n"
"Dieser Installer installiert Gurus2000 auf deinen Amiga\n\n"
"(Bitte alte Version vorher löschen)\n\n\n"
"Gurus2000 © by Demon 2000"))
(set #choose-text
(cat "Wähle das Verzeichnis wohin Gurus2000 installiert werden soll. Ein Verzeichnis namens Gurus2000 wird dort angelegt."))
(set #choose-pic
(cat "Wähle deinen liebsten Bildanzeiger:"))
(set #exit
(cat "\n\nViel Spaß mit Gurus2000")) ))
(if (= #language 1)
((set #welcome
(cat "\n\n\nWelcome to the Gurus2000 - installer\n\n"
"This installer will install Gurus2000 on your Amiga\n\n"
"(Please delete previous version)\n\n\n"
"Gurus2000 © by Demon 2000"))
(set #choose-text
(cat "Choose the destination drawer for the Gurus2000 archive. A directory called Gurus2000 will be created there."))
(set #choose-pic
(cat "Choose your favourite picture viewer:"))
(set #exit
(cat "\n\nHave fun with Gurus2000")) ))
;----------------------------------------
(message #welcome)
(welcome)
(set @default "SYS:")
(set @default (askdir (prompt #choose-text) (help (cat @askdir-help)) (default @default)) )
(complete 1)
;----------------------------------------
(copyfiles (source ".inf") (dest @default) (newname "Gurus2000.info"))
(makedir @default)
(set @default (tackon @default "Gurus2000"))
(complete 2)
;----------------------------------------
(if (= #Language 0)
((copyfiles (source "deutsch") (dest @default) (pattern "#?")) ))
(if (= #Language 1)
((copyfiles (source "english") (dest @default) (pattern "#?")) ))
(complete 80)
;----------------------------------------
(copyfiles (source "!") (dest @default) (pattern "#?"))
(complete 98)
;----------------------------------------
(set @pic (askfile (prompt #choose-pic) (help (cat @askfile-help)) (default "c:")) )
(copyfiles (source @pic) (dest (tackon @default "data/")) (newname "V"))
(complete 100)
;----------------------------------------
(EXIT #exit (quiet))